home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson1 / Lesson1.dcr / 00014_set loc by Reg-Pro.ls < prev    next >
Encoding:
Text File  |  2001-11-20  |  729 b   |  22 lines
  1. property regHPos, RegVPos, proHPos, ProVPos, spriteNum
  2. global QuickBooksPro
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #regHPos, [#default: 0, #format: #number, #comment: "Reg H-Pos:"])
  7.   addProp(description, #RegVPos, [#default: 0, #format: #number, #comment: "Reg V-Pos:"])
  8.   addProp(description, #proHPos, [#default: 0, #format: #number, #comment: "Pro H-Pos:"])
  9.   addProp(description, #ProVPos, [#default: 0, #format: #number, #comment: "Pro V-Pos:"])
  10.   return description
  11. end
  12.  
  13. on beginSprite
  14.   if QuickBooksPro = "TRUE" then
  15.     sprite(spriteNum).locH = proHPos
  16.     sprite(spriteNum).locV = ProVPos
  17.   else
  18.     sprite(spriteNum).locH = regHPos
  19.     sprite(spriteNum).locV = RegVPos
  20.   end if
  21. end
  22.